home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •Interesting Stuff• / Warp Speed v1.1 ••• / card_2946.txt < prev    next >
Text File  |  1990-10-01  |  13KB  |  547 lines
  1. -- card: 2946 from stack: in.1 ‚Ä¢‚Ä¢‚Ä¢
  2. -- bmap block id: 3076
  3. -- flags: 4000
  4. -- background id: 2602
  5. -- name: Warp Speed Calculator
  6. ----- HyperTalk script -----
  7. on ComputeWarp speedButton
  8.   set the hilite of button "Warp 1" to false
  9.   set the hilite of button "Warp 2" to false
  10.   set the hilite of button "Warp 3" to false
  11.   set the hilite of button "Warp 4" to false
  12.   set the hilite of button "Warp 5" to false
  13.   set the hilite of button "Warp 6" to false
  14.   set the hilite of button "Warp 7" to false
  15.   set the hilite of button "Warp 8" to false
  16.   set the hilite of button "Warp 9" to false
  17.   set the hilite of button "Warp 9.6" to false
  18.   set the hilite of button "Warp 9.9" to false
  19.   set the hilite of card button speedButton to true
  20.  
  21.   set the numberFormat to "0.##############"
  22.   put 60 into AMinuet
  23.   put (AMinuet * 60) into AnHour
  24.   put (AnHour * 24) into ADay
  25.   put (ADay * 365) into AYear
  26.  
  27.   put word 2 of speedButton into WarpSpeed
  28.   if the hilite of card button "NCC-1701" is TRUE then
  29.     -- the orriginal Enterprise (NCC-1701)
  30.     if WarpSpeed is 1 then
  31.       put 1 into WarpFactor
  32.     else
  33.       if WarpSpeed is 2 then
  34.         put 8 into WarpFactor
  35.       else
  36.         if WarpSpeed is 3 then
  37.           put 27 into WarpFactor
  38.         else
  39.           if WarpSpeed is 4 then
  40.             put 64 into WarpFactor
  41.           else
  42.             if WarpSpeed is 5 then
  43.               put 125 into WarpFactor
  44.             else
  45.               if WarpSpeed is 6 then
  46.                 put 216 into WarpFactor
  47.               else
  48.                 if WarpSpeed is 7 then
  49.                   put 343 into WarpFactor
  50.                 else
  51.                   if WarpSpeed is 8 then
  52.                     put 512 into WarpFactor
  53.                   else
  54.                     if WarpSpeed is 9 then
  55.                       put 729 into WarpFactor
  56.                     else
  57.                       put EMPTY into WarpFactor
  58.                       play boing
  59.                       answer "Captain, she can't go that fast!"
  60.                     end if
  61.                   end if
  62.                 end if
  63.               end if
  64.             end if
  65.           end if
  66.         end if
  67.       end if
  68.     end if
  69.   else             -- else must be the new Enterprise (NCC-1701-D)
  70.     if WarpSpeed is 1 then
  71.       put 1 into WarpFactor
  72.     else
  73.       if WarpSpeed is 2 then
  74.         put 10 into WarpFactor
  75.       else
  76.         if WarpSpeed is 3 then
  77.           put 39 into WarpFactor
  78.         else
  79.           if WarpSpeed is 4 then
  80.             put 102 into WarpFactor
  81.           else
  82.             if WarpSpeed is 5 then
  83.               put 214 into WarpFactor
  84.             else
  85.               if WarpSpeed is 6 then
  86.                 put 392 into WarpFactor
  87.               else
  88.                 if WarpSpeed is 7 then
  89.                   put 656 into WarpFactor
  90.                 else
  91.                   if WarpSpeed is 8 then
  92.                     put 1024 into WarpFactor
  93.                   else
  94.                     if WarpSpeed is 9 then
  95.                       put 1516 into WarpFactor
  96.                     else
  97.                       if WarpSpeed is 9.6 then
  98.                         put 1909 into WarpFactor
  99.                       else
  100.                         put 3503 into WarpFactor
  101.                       end if
  102.                     end if
  103.                   end if
  104.                 end if
  105.               end if
  106.             end if
  107.           end if
  108.         end if
  109.       end if
  110.     end if
  111.   end if
  112.   if WarpFactor is not EMPTY then
  113.     put (card field LightYears * 186000 * AYear) into Miles
  114.     if hilite of card button ParSecs is TRUE then
  115.       put (Miles * 3.26) into Miles
  116.     end if
  117.     put (Miles / (186000 * WarpFactor)) into TravelTimeInSeconds
  118.     put trunc (TravelTimeInSeconds / AYear) into card field WarpYears
  119.     put (TravelTimeInSeconds mod AYear) into WarpYearsRmdr
  120.     put trunc (WarpYearsRmdr / ADay) into card field WarpDays
  121.     put (WarpYearsRmdr mod ADay) into WarpDaysRmdr
  122.     put trunc (WarpDaysRmdr / AnHour) into card field WarpHours
  123.     put (WarpDaysRmdr mod AnHour) into WarpHoursRmdr
  124.     put trunc (WarpHoursRmdr / AMinuet) into card field WarpMinuets
  125.     put trunc (WarpHoursRmdr mod AMinuet) into card field WarpSeconds
  126.   end if
  127. end ComputeWarp
  128.  
  129.  
  130.  
  131.  
  132. -- part 1 (button)
  133. -- low flags: 00
  134. -- high flags: 8006
  135. -- rect: left=395 top=36 right=58 bottom=495
  136. -- title width / last selected line: 0
  137. -- icon id / first selected line: 0 / 0
  138. -- text alignment: 1
  139. -- font id: 0
  140. -- text size: 12
  141. -- style flags: 0
  142. -- line height: 16
  143. -- part name: Warp 1
  144. ----- HyperTalk script -----
  145. on mouseUp
  146.   ComputeWarp the short name of me
  147. end mouseUp
  148.  
  149.  
  150.  
  151. -- part 2 (button)
  152. -- low flags: 00
  153. -- high flags: 8006
  154. -- rect: left=395 top=61 right=83 bottom=495
  155. -- title width / last selected line: 0
  156. -- icon id / first selected line: 0 / 0
  157. -- text alignment: 1
  158. -- font id: 0
  159. -- text size: 12
  160. -- style flags: 0
  161. -- line height: 16
  162. -- part name: Warp 2
  163. ----- HyperTalk script -----
  164. on mouseUp
  165.   ComputeWarp the short name of me
  166. end mouseUp
  167.  
  168.  
  169.  
  170. -- part 3 (button)
  171. -- low flags: 00
  172. -- high flags: 8006
  173. -- rect: left=395 top=86 right=108 bottom=495
  174. -- title width / last selected line: 0
  175. -- icon id / first selected line: 0 / 0
  176. -- text alignment: 1
  177. -- font id: 0
  178. -- text size: 12
  179. -- style flags: 0
  180. -- line height: 16
  181. -- part name: Warp 3
  182. ----- HyperTalk script -----
  183. on mouseUp
  184.   ComputeWarp the short name of me
  185. end mouseUp
  186.  
  187.  
  188.  
  189. -- part 4 (button)
  190. -- low flags: 00
  191. -- high flags: 8006
  192. -- rect: left=395 top=111 right=133 bottom=495
  193. -- title width / last selected line: 0
  194. -- icon id / first selected line: 0 / 0
  195. -- text alignment: 1
  196. -- font id: 0
  197. -- text size: 12
  198. -- style flags: 0
  199. -- line height: 16
  200. -- part name: Warp 4
  201. ----- HyperTalk script -----
  202. on mouseUp
  203.   ComputeWarp the short name of me
  204. end mouseUp
  205.  
  206.  
  207.  
  208. -- part 5 (button)
  209. -- low flags: 00
  210. -- high flags: C006
  211. -- rect: left=395 top=136 right=158 bottom=495
  212. -- title width / last selected line: 0
  213. -- icon id / first selected line: 0 / 0
  214. -- text alignment: 1
  215. -- font id: 0
  216. -- text size: 12
  217. -- style flags: 0
  218. -- line height: 16
  219. -- part name: Warp 5
  220. ----- HyperTalk script -----
  221. on mouseUp
  222.   ComputeWarp the short name of me
  223. end mouseUp
  224.  
  225.  
  226.  
  227. -- part 6 (button)
  228. -- low flags: 00
  229. -- high flags: 8006
  230. -- rect: left=395 top=161 right=183 bottom=495
  231. -- title width / last selected line: 0
  232. -- icon id / first selected line: 0 / 0
  233. -- text alignment: 1
  234. -- font id: 0
  235. -- text size: 12
  236. -- style flags: 0
  237. -- line height: 16
  238. -- part name: Warp 6
  239. ----- HyperTalk script -----
  240. on mouseUp
  241.   ComputeWarp the short name of me
  242. end mouseUp
  243.  
  244.  
  245.  
  246. -- part 7 (button)
  247. -- low flags: 00
  248. -- high flags: 8006
  249. -- rect: left=395 top=186 right=208 bottom=495
  250. -- title width / last selected line: 0
  251. -- icon id / first selected line: 0 / 0
  252. -- text alignment: 1
  253. -- font id: 0
  254. -- text size: 12
  255. -- style flags: 0
  256. -- line height: 16
  257. -- part name: Warp 7
  258. ----- HyperTalk script -----
  259. on mouseUp
  260.   ComputeWarp the short name of me
  261. end mouseUp
  262.  
  263.  
  264.  
  265. -- part 8 (button)
  266. -- low flags: 00
  267. -- high flags: 8006
  268. -- rect: left=395 top=211 right=233 bottom=495
  269. -- title width / last selected line: 0
  270. -- icon id / first selected line: 0 / 0
  271. -- text alignment: 1
  272. -- font id: 0
  273. -- text size: 12
  274. -- style flags: 0
  275. -- line height: 16
  276. -- part name: Warp 8
  277. ----- HyperTalk script -----
  278. on mouseUp
  279.   ComputeWarp the short name of me
  280. end mouseUp
  281.  
  282.  
  283.  
  284. -- part 9 (button)
  285. -- low flags: 00
  286. -- high flags: 8006
  287. -- rect: left=395 top=236 right=258 bottom=495
  288. -- title width / last selected line: 0
  289. -- icon id / first selected line: 0 / 0
  290. -- text alignment: 1
  291. -- font id: 0
  292. -- text size: 12
  293. -- style flags: 0
  294. -- line height: 16
  295. -- part name: Warp 9
  296. ----- HyperTalk script -----
  297. on mouseUp
  298.   ComputeWarp the short name of me
  299. end mouseUp
  300.  
  301.  
  302.  
  303. -- part 15 (field)
  304. -- low flags: 00
  305. -- high flags: 0004
  306. -- rect: left=164 top=89 right=108 bottom=238
  307. -- title width / last selected line: 0
  308. -- icon id / first selected line: 0 / 0
  309. -- text alignment: 1
  310. -- font id: 3
  311. -- text size: 12
  312. -- style flags: 0
  313. -- line height: 16
  314. -- part name: LightYears
  315.  
  316.  
  317. -- part 17 (field)
  318. -- low flags: 01
  319. -- high flags: 0004
  320. -- rect: left=122 top=162 right=181 bottom=171
  321. -- title width / last selected line: 0
  322. -- icon id / first selected line: 0 / 0
  323. -- text alignment: 1
  324. -- font id: 3
  325. -- text size: 12
  326. -- style flags: 0
  327. -- line height: 16
  328. -- part name: WarpDays
  329.  
  330.  
  331. -- part 18 (field)
  332. -- low flags: 01
  333. -- high flags: 0004
  334. -- rect: left=175 top=162 right=181 bottom=224
  335. -- title width / last selected line: 0
  336. -- icon id / first selected line: 0 / 0
  337. -- text alignment: 1
  338. -- font id: 3
  339. -- text size: 12
  340. -- style flags: 0
  341. -- line height: 16
  342. -- part name: WarpHours
  343.  
  344.  
  345. -- part 19 (field)
  346. -- low flags: 01
  347. -- high flags: 0004
  348. -- rect: left=227 top=162 right=181 bottom=276
  349. -- title width / last selected line: 0
  350. -- icon id / first selected line: 0 / 0
  351. -- text alignment: 1
  352. -- font id: 3
  353. -- text size: 12
  354. -- style flags: 0
  355. -- line height: 16
  356. -- part name: WarpMinuets
  357.  
  358.  
  359. -- part 20 (field)
  360. -- low flags: 01
  361. -- high flags: 0004
  362. -- rect: left=280 top=162 right=181 bottom=329
  363. -- title width / last selected line: 0
  364. -- icon id / first selected line: 0 / 0
  365. -- text alignment: 1
  366. -- font id: 3
  367. -- text size: 12
  368. -- style flags: 0
  369. -- line height: 16
  370. -- part name: WarpSeconds
  371.  
  372.  
  373. -- part 21 (field)
  374. -- low flags: 01
  375. -- high flags: 0004
  376. -- rect: left=69 top=162 right=181 bottom=118
  377. -- title width / last selected line: 0
  378. -- icon id / first selected line: 0 / 0
  379. -- text alignment: 1
  380. -- font id: 3
  381. -- text size: 12
  382. -- style flags: 0
  383. -- line height: 16
  384. -- part name: WarpYears
  385.  
  386.  
  387. -- part 23 (button)
  388. -- low flags: 00
  389. -- high flags: C006
  390. -- rect: left=115 top=111 right=128 bottom=205
  391. -- title width / last selected line: 0
  392. -- icon id / first selected line: 0 / 0
  393. -- text alignment: 1
  394. -- font id: 0
  395. -- text size: 12
  396. -- style flags: 0
  397. -- line height: 16
  398. -- part name: LightYears
  399. ----- HyperTalk script -----
  400. on mouseUp
  401.   set the hilite of me to TRUE
  402.   set the hilite of card button Parsecs to FALSE
  403. end mouseUp
  404.  
  405.  
  406.  
  407. -- part 24 (button)
  408. -- low flags: 00
  409. -- high flags: 8006
  410. -- rect: left=215 top=111 right=128 bottom=289
  411. -- title width / last selected line: 0
  412. -- icon id / first selected line: 0 / 0
  413. -- text alignment: 1
  414. -- font id: 0
  415. -- text size: 12
  416. -- style flags: 0
  417. -- line height: 16
  418. -- part name: Parsecs
  419. ----- HyperTalk script -----
  420. on mouseUp
  421.   set the hilite of me to TRUE
  422.   set the hilite of card button LightYears to FALSE
  423. end mouseUp
  424.  
  425.  
  426.  
  427. -- part 25 (button)
  428. -- low flags: 00
  429. -- high flags: 2004
  430. -- rect: left=13 top=71 right=109 bottom=53
  431. -- title width / last selected line: 0
  432. -- icon id / first selected line: 1 / 1
  433. -- text alignment: 1
  434. -- font id: 0
  435. -- text size: 12
  436. -- style flags: 0
  437. -- line height: 16
  438. -- part name: Information
  439. ----- HyperTalk script -----
  440. on mouseUp
  441.   visual effect iris open
  442.   go to card "Information"
  443. end mouseUp
  444.  
  445.  
  446.  
  447. -- part 26 (button)
  448. -- low flags: 00
  449. -- high flags: 8006
  450. -- rect: left=395 top=285 right=307 bottom=495
  451. -- title width / last selected line: 0
  452. -- icon id / first selected line: 0 / 0
  453. -- text alignment: 1
  454. -- font id: 0
  455. -- text size: 12
  456. -- style flags: 0
  457. -- line height: 16
  458. -- part name: Warp 9.9
  459. ----- HyperTalk script -----
  460. on mouseUp
  461.   ComputeWarp the short name of me
  462. end mouseUp
  463.  
  464.  
  465.  
  466. -- part 27 (button)
  467. -- low flags: 00
  468. -- high flags: 8006
  469. -- rect: left=395 top=261 right=283 bottom=495
  470. -- title width / last selected line: 0
  471. -- icon id / first selected line: 0 / 0
  472. -- text alignment: 1
  473. -- font id: 0
  474. -- text size: 12
  475. -- style flags: 0
  476. -- line height: 16
  477. -- part name: Warp 9.6
  478. ----- HyperTalk script -----
  479. on mouseUp
  480.   ComputeWarp the short name of me
  481. end mouseUp
  482.  
  483.  
  484.  
  485. -- part 28 (button)
  486. -- low flags: 00
  487. -- high flags: 8006
  488. -- rect: left=110 top=46 right=65 bottom=194
  489. -- title width / last selected line: 0
  490. -- icon id / first selected line: 0 / 0
  491. -- text alignment: 1
  492. -- font id: 0
  493. -- text size: 12
  494. -- style flags: 0
  495. -- line height: 16
  496. -- part name: NCC-1701
  497. ----- HyperTalk script -----
  498. on mouseUp
  499.   set the hilite of me to TRUE
  500.   set the hilite of card button "NCC-1701-D" to FALSE
  501. end mouseUp
  502.  
  503.  
  504.  
  505. -- part 29 (button)
  506. -- low flags: 00
  507. -- high flags: C006
  508. -- rect: left=214 top=46 right=65 bottom=317
  509. -- title width / last selected line: 0
  510. -- icon id / first selected line: 0 / 0
  511. -- text alignment: 1
  512. -- font id: 0
  513. -- text size: 12
  514. -- style flags: 0
  515. -- line height: 16
  516. -- part name: NCC-1701-D
  517. ----- HyperTalk script -----
  518. on mouseUp
  519.   set the hilite of me to TRUE
  520.   set the hilite of card button "NCC-1701" to FALSE
  521. end mouseUp
  522.  
  523.  
  524.  
  525. -- part contents for card part 15
  526. ----- text -----
  527. 500
  528.  
  529. -- part contents for card part 17
  530. ----- text -----
  531. 122
  532.  
  533. -- part contents for card part 18
  534. ----- text -----
  535. 19
  536.  
  537. -- part contents for card part 19
  538. ----- text -----
  539. 17
  540.  
  541. -- part contents for card part 20
  542. ----- text -----
  543. 22
  544.  
  545. -- part contents for card part 21
  546. ----- text -----
  547. 2